home *** CD-ROM | disk | FTP | other *** search
/ PCGUIA 2010 Software/Programs / PCGuia_programas.iso / Software / Utils / Universal Viewer / UniversalViewer.exe / Plugins / Syn2 / HL / RPG_IV(FreeSyntax).lcf < prev    next >
Encoding:
Text File  |  2007-12-12  |  4.2 KB  |  181 lines
  1. object SyntAnal30: TLibSyntAnalyzer
  2.   Formats = <
  3.     item
  4.       DisplayName = 'Default'
  5.       Font.Charset = DEFAULT_CHARSET
  6.       Font.Color = clWindowText
  7.       Font.Height = -13
  8.       Font.Name = 'Courier New'
  9.       Font.Style = []
  10.       FormatType = ftCustomFont
  11.     end
  12.     item
  13.       DisplayName = 'Marked block'
  14.       Font.Charset = DEFAULT_CHARSET
  15.       Font.Color = clHighlightText
  16.       Font.Height = -13
  17.       Font.Name = 'Courier New'
  18.       Font.Style = []
  19.       BgColor = clHighlight
  20.       FormatType = ftColor
  21.     end
  22.     item
  23.       DisplayName = 'Comment'
  24.       Font.Charset = DEFAULT_CHARSET
  25.       Font.Color = clGray
  26.       Font.Height = -13
  27.       Font.Name = 'Courier New'
  28.       Font.Style = [fsBold]
  29.     end
  30.     item
  31.       DisplayName = 'Compiler Directive'
  32.       Font.Charset = DEFAULT_CHARSET
  33.       Font.Color = clTeal
  34.       Font.Height = -13
  35.       Font.Name = 'Courier New'
  36.       Font.Style = [fsBold]
  37.     end
  38.     item
  39.       DisplayName = 'Free Syntax Calculation keywords'
  40.       Font.Charset = DEFAULT_CHARSET
  41.       Font.Color = clWindowText
  42.       Font.Height = -13
  43.       Font.Name = 'Courier New'
  44.       Font.Style = [fsBold]
  45.     end
  46.     item
  47.       DisplayName = '%name'
  48.       Font.Charset = DEFAULT_CHARSET
  49.       Font.Color = clNavy
  50.       Font.Height = -13
  51.       Font.Name = 'Courier New'
  52.       Font.Style = [fsBold, fsItalic]
  53.     end
  54.     item
  55.       DisplayName = 'Symbol'
  56.       Font.Charset = DEFAULT_CHARSET
  57.       Font.Color = clMaroon
  58.       Font.Height = -13
  59.       Font.Name = 'Courier New'
  60.       Font.Style = [fsBold]
  61.     end>
  62.   TokenRules = <
  63.     item
  64.       DisplayName = 'Comment'
  65.       StyleName = 'Comment'
  66.       AlwaysEnabled = True
  67.       TokenType = 1
  68.       Expression = '# Make comment to get all line'#13#10'#(?m)^\x20*\*.*\r\n'#13#10'//.*'
  69.       ColumnFrom = 0
  70.       ColumnTo = 0
  71.     end
  72.     item
  73.       DisplayName = 'Any Directive'
  74.       StyleName = 'Compiler Directive'
  75.       TokenType = 5
  76.       Expression = '/[\w\-]+'
  77.       ColumnFrom = 0
  78.       ColumnTo = 0
  79.     end
  80.     item
  81.       DisplayName = '%names'
  82.       StyleName = '%name'
  83.       TokenType = 2
  84.       Expression = '%\w+'
  85.       ColumnFrom = 0
  86.       ColumnTo = 0
  87.     end
  88.     item
  89.       DisplayName = 'Symbol'
  90.       StyleName = 'Symbol'
  91.       TokenType = 8
  92.       Expression = '[/\*,\.;:\(\)=<>\+\-\[\]]'
  93.       ColumnFrom = 0
  94.       ColumnTo = 0
  95.     end>
  96.   BlockRules = <
  97.     item
  98.       DisplayName = 'Free Syntax Calculation keywords'
  99.       StyleName = 'Free Syntax Calculation keywords'
  100.       BlockType = btTagDetect
  101.       ConditionList = <
  102.         item
  103.           TagList.Strings = (
  104.             'BEGSR'
  105.             'CALLP'
  106.             'CHAIN'
  107.             'CLEAR'
  108.             'CLOSE'
  109.             'COMMIT'
  110.             'DEALLOC'
  111.             'DELETE'
  112.             'DOU'
  113.             'DOW'
  114.             'DSPLY'
  115.             'ELSE'
  116.             'ELSEIF'
  117.             'END'
  118.             'ENDDO'
  119.             'ENDFOR'
  120.             'ENDIF'
  121.             'ENDMON'
  122.             'ENDSL'
  123.             'ENDSR'
  124.             'EVAL'
  125.             'EVALR'
  126.             'EXCEPT'
  127.             'EXSR'
  128.             'FEOD'
  129.             'FOR'
  130.             'IF'
  131.             'IN'
  132.             'ITER'
  133.             'LEAVE'
  134.             'LEAVESR'
  135.             'MONITOR'
  136.             'ON-ERROR'
  137.             'OPEN'
  138.             'OTHER'
  139.             'OUT'
  140.             'POST'
  141.             'READ'
  142.             'READC'
  143.             'READE'
  144.             'READP'
  145.             'READPE'
  146.             'RESET'
  147.             'RETURN'
  148.             'ROLBK'
  149.             'SELECT'
  150.             'SETGT'
  151.             'SETLL'
  152.             'SORTA'
  153.             'TEST'
  154.             'UNLOCK'
  155.             'UPDATE'
  156.             'WHEN'
  157.             'WRITE')
  158.           TokenTypes = 4
  159.           IgnoreCase = True
  160.         end>
  161.       HighlightPos = cpAny
  162.       IgnoreAsParent = False
  163.     end>
  164.   CodeTemplates = <>
  165.   SubAnalyzers = <>
  166.   TokenTypeNames.Strings = (
  167.     'Unknown'
  168.     'Comment'
  169.     'Identifier'
  170.     'Line Type'
  171.     'Line End'
  172.     'Directives'
  173.     'Number'
  174.     'String'
  175.     'Symbol')
  176.   MarkedBlockStyle = 'Marked block'
  177.   DefaultStyleName = 'Default'
  178.   LexerName = 'RPG/IV (Free Syntax)'
  179.   Internal = True
  180. end
  181.